Import mojo
Import agfx

Class TTiled_TilesetTile
	
	Field id:Int 	
	Field properties:TProperties
	
	'------------------------------------------------------------------------------------
	'
	'------------------------------------------------------------------------------------
	
	Method New(node:XMLElement)
	
		If DEBUG Then Print("    <TILE>")
		
		Self.id = Int(node.GetAttribute("id"))
		If DEBUG Then Print("    id: "+Self.id)
		
		Self.properties = New TProperties()
		Local prop:XMLElement
		
		For prop = EachIn node.Children
			
			Select prop.Name()
				Case "properties"
					If DEBUG Then Print("      <PROPERTIES>")
					Self.properties.Add(prop,"property","name","value")
			End Select
			
		Next
		
	End Method

	'------------------------------------------------------------------------------------
	'
	'------------------------------------------------------------------------------------
	
End Class